/* Compressed with CompressRexx v2.1, (C) 1993-96 Robert Hofmann */
OPTIONS RESULTS;Call Setclip('DFxTIME',Time());"Say /me has started a |DWaRFLoG| - Options ->";"Say Type #DieHolly to quit the DWaRFLoG remotely";"Say Type #RedDwarf to get a list of DWaRFx features.";"Say Type # to get a slap.";meals = "";Open(1,"AmIRC:Rexx/DWaRFx/DWaRFiNFO","R");Do Forever;line = Upper(Readln(1));If line = "" Then Leave;meal = Word(line,1);meals = meals" "meal;desc.meal = Subword(line,2,Words(line));End;Close(1);Do Forever;"Getmynick" ; mynick = Result;Drop rest;Drop prefix;"Getline";rest = Upper(Line.rest);IF LEFT(rest,1) = ":" THEN rest = RIGHT(rest,LENGTH(rest)-1);prefix = line.prefix;Do loop = 1 To Length(prefix);If Right(Left(prefix,loop),1) = "!" Then Leave;End loop;nick = Left(prefix,loop-1);drink = Compress(rest,"#");"say DWaRFLoG: "drink;If Upper(rest) = "#DIEHOLLY" Then Leave;If Upper(rest) = "#REDDWARF" Then Do;"Say /Msg "nick" "D2c(2)"====> DWaRFx By GåZ <===="D2c(2);"Say /Msg "nick" Features Of DWaRFx include the following ->"
"Say /Msg "nick" "D2c(2)" "D2c(2);Do loop = 1 To Words(meals);meal = Word(meals,loop);"Say /Msg "nick" "D2c(2)||meal||D2c(2)" "desc.meal;End;Drop rest;End;If Substr(rest,1,1) = "#" then do;If Find(meals,drink) ~= 0 Then Do;"Say /Me slaps "nick" ";End;Else Do;"Say /msg "nick" Sorry the only commands I understand are #dieholly & #reddwarf";End;End;End;"Say /Me has stopped the |DWaRFLoG|.....";"Say /Op GåZ";Exit
